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MODULE SMGSDISPLAY_ DRAW ( ararye "Display Line drawi "9, 
IDENT = "1-004 : File: SMGDISDRW.B32 Edit: PLL1004 
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BEGIN 


. 
MARBEESLLELISESEL IEEE TEESE ETE e TCT C CPST Tce icc r icici icc c icici ii iiie, 
' 


ie COPYRIGHT (c) 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd ta 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Lint AND WITH THE 


& 
2 
® 
* 
& 
® 
* 
i OFTWARE OR . 
i® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. 
' * 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
* 
® 
* 
® 
® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 
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1 
1 
1 
1 
1 
1 
1 
7 
1 
1 
2 
5 
2 's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
& 
‘@ 

§ SRR REE RER AAA RARER AERA AAE AAA A REAR AA RAAT 

0 i 
a 

030 lee 
3 031 ! FACILITY: Screen Management 
3 032 : 
; 3e7 ABSTRACT: 
3 035 ‘ This module contains routines that draw Lines in a virtual display 
; Oro using the Line drawing character set. 
; S33 ENVIRONMENT: User mode - AST reentrant 
7 oe AUTHOR: P. Levesque, CREATION DATE: 21-Sep-1983 
4 beg ' MODIFIED BY: 
4 04 : 
4 044 ! 1-001 = Original. PLL 21- ert -1983 
4 045 i 1-002 = Fix to SINSERT_LINE CHAR to set proper rendition when ORing 
4 046 ‘ Line drawing charact ers. PLL 13-Apr-1984 
4 047 : 1-003 - Fix bug preventi "3 drawing of one character Lines. STAN 3-Jun-1984. 
4 0048 ! 1-004 = Don't pass SMGSC_PUT_CHARS as the function code to check for we 18 
$ B08? - this makes output Believe the change is confined to 1 Tiney PLL 5° oR ep-1984 
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SMGSDISPLAY_DRA Display Line drawin 1b-Se “1984 00:24:5 AX-11 Bliss-32 V4.0-74 Page 
1-004 Dec aretions . 12286871 384 99:85 26 USMGRTL’ SREISMGD! SORu.B$2;2 . ( 
; sf 2084 } XSBTTL "Declarations' 

: 4 09 : 1 ! SWITCHES: 

; 2 054 1! 

3; Baez 1 

; ef O18 } REQUIRE "RTLIN:SMGPROLOG'; 

3 4 4 3 : REQUIRE "RTLIN:STRLNK'; ! JSB Linkage for string routines 

3; §) 0381 1 ! LINKAGES: 

; 6¢ 03 § 1: 

: § 83 1! NONE 

; & 0324 1! 

s $5 0325 1 ! TABLE OF CONTENTS: 

; & 0326 1! 

~. oF 0327 1 

; 668 0328 1 FORWARD ROUTINE 

; 69 0329 1 SMGSDRAW_LINE, 

: 0330 1 SMGSDRAW_RECTANGLE; 

3 0331 1 

; TEE 1! 

co) am 0335 1 ! INCLUDE FILES: 

> 2% 0334 1! 

ee 0335 1 

a! . 0336 1 

= 20 0337 1! 

; 78 0338 1 ! MACROS: 

; 679 0339 1! 

; & 0340 1 !+4 

; 61 0341 1! The ses seutry macro inserts a line drawing character into the text. 

: & 0342 1 : buffer and checks to see if the previous character was a Line drawing 

; 8s 0345 1! character. If it was, it ORs in the new character so that intersecting 
; 84 0344 1! Lines will apprer correctly on the screen. Notice that although border 
; 0345 1 ! elements are Line croning characters, we ignore those here - we only want 
; Md B39 ! proper intersections with other Lines the user drew. 

ca. oe 0348 1 MACRO 

; «89 M 0349 1 SINSERT_LINE_CHAR (CHAR) = 

; m 0350 1 N 

; 91 M0351 1 IF .(ATTR_BUF C.POSJ)<ATTR_V_USER_GRAPHIC, 1> 

=. M Be2¢ 1 THEN 

3; «9 M0353 1 BEGIN 

; 94 M0354 1 TEXT_BUF C.POS] = .TEXT_BUF £-POs) OR CHAR; 

3 95 M0355 1 ATTR_BUF C.POSJ = .ATTR BUF C.POS] AND 

:; 8496 M0356 1 TNOT (SMG$M_BLINK+SPMG$M_BOLD+SMG$M_REVERSE+SMG$M_UNDERL INE) ) 
; oF M0357 1 OR .REND_COBE; 

; m 0358 1 

; m 0359 1 

: 100 ™ 0360 1 EGI 

: 101 M 0361 1 TEXT_BUF [C.POS) = CHAR; 

: 102 Lal Beg 1 ATTR_BUF C.POS) = ATTR_M_USER_GRAPHIC OR .REND_CODE; 

3; 103 M0363 1 END; 

: «6104 0364 1 END2; 

: 105 0365 1 

: 106 oreo F 76. . : ‘ : ’ 

; 107 0367 1 ! This macro resets a line to single wide/high. The Line must be 

: 108 0368 1 ! blanked first. 
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SMGSDISPLAY_DRA Distlay tine drawing 16-Sep 0° 138¢ 09: $6'2 AX-11 Bliss-32 V4.0 + Page 3 
1-004 Declerations 14-Sep-1984 1 SMGRTL.SRC SMGDI SORW.B 2:2 (2) 
; 109 0 $8 1 te 
: 110 0 1 MACRO 
ey m 0371 1 SRESET LINE (LINE_NO) = 
: 116 M t 1 BEG! ' reset/blank Line 
: 11 ™ 0375 1 LOCAL 
3: 116 m0374 * STA 
: 115 M0375 1 START INDEX” = =" SEMGSLINEAR (LINE NO, .DCB_COCB_W SOL START); 
: 116 m0 2 1 SSMGSBLANK_F ILL =DCB (.0CB FRC8_O_ NO_COLSJ, .STAAT_INDEX) 
3; M0377 1 LINE_CHAR CLINE_NO} - C, 
; «118 8 78 #1 END2> ' reset/blank Line 
3; 6119 79 «1 
; \$9 0 go . f 
s tei 0381 1 ! EQUATED SYMBOLS: 
3 \$¢ ttt) 1! 
Bap O38 1! NONE 
> 124 0384 1! 
s 125 0385 1 ! FIELDS: 
: 126 0386 1! 
: 127 0387 1! NONE 
s 128 0388 #1! 
$ 194 0389 1 ! PSECTS: 
s 1350 0390 1! 
3s 131 0391 #1 
; 136 454 1! 
s 135 039 1 ! OWN STORAGE: 
: 134 0394 1! 
s 135 0395 1! NONE 
3s 136 0396 1! 
s %37 0397 1 ! EXTERNAL REFERENCES: 
: 138 0398 1! 
; 139 0399 1 
; 140 0400 1 EXTERNAL ROUTINE A ee eet 
3 | ot 3 : SMGSSCHECK_FOR_OUTPUT_DCB; ! check if time to repaint display 
3; 143 0403 1 EXTERNAL LITERAL 
3 144 0404 1 SMG$_INVDIS_ID, ! Invalid display id 
s 345 0405 1 SMGS$_INVARG, ! Invalid argument 
3; 6146 0406 1 SMG$_INVCOL, ' Invalid column number 
; «(147 0407 1 SMG$_INVROW, ! Invalid row number 
: 148 0408 1 SMG$_DIALINNOT, ' Diagonal Line not allowed 
3; «6149 0409 1 SMG$_WRONUMARG; ! Wrong number of arguments 
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1 XSBTTL "SMGSDRAW LINE = Draw a Line in a virtual display’ 
GLOBAL ROUTINE SMGSDRAW_LINE ( 
DISPLAY_ID, 
START_ROW, 
START-COL, 
END_ROW, 
END COL 
RENDITION_SET 
' RENDITION- COMPLEMENT 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


This routine draws a Line from START_ROW, START_COL to END_ROW, END_COL. 
Device independent codes are moved to the display text and 

attributes buffers - output later figures out what characters 

to use based on the type of terminal. 


The internat cursor position is not changed. 
CALLING SEQUENCE: 
ret_status.wic.v = SMGS$DRAW_LINE 


N afte? 
TION SET. 


rte 
NDITION~ COMPLEMENT .rl.rJ) 


paleo lelelaleajlelelelelelelalelelelelelelelelelelelealoleolo ME 4) =/ 
mre 

zn 
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' 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
0439 i FORMAL PARAMETERS: 
0441 DISPLAY_ID.rl.r Display id of virtual display 
044 i START_ROW.rl.r Address of row number at which 
bees to start Line. 
0446 1! START_COL.rl.r Address of column number at which 
ort to start line. 
0449 1 | END_ROW.rl.r Address of row number at which 
bce) to end Line. 
0452 i END_COL.rl.r Address of column number at which 
beeE to end Line. 
0455 : RENDITION_SET.rl.r Optional. Each 1 bit in this parameter 
0456 : causes the corresponding attribute to be 
0457 : set in the wits) & (See below for List 
bce6 of settable attributes.) 
0460 1! RENDITION_COMPLEMENT.rl.r Optional. Each 1 bit attribute in this 
0 0461 : parameter causes the corresponding attribute 
0 046 ! to be complemented in the Se a pa (See 
, Ree below for List of complementable attributes.) 
0 0465 i If the same bit is specified in both the RENDITION SET parameter 
0 0466 ; and in the RENDITION_COMPLEMENT parameter, the application is 
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3 8 0467 {1 ! RENDITION_SET followed by RENDITION complement. Using these two 

; 209 0468 1! parameters together the caller can exercise arbitrary and 

s £10 Be 58 1} independent control over each attribute on a singe call. On an 
ls 21) 470 1! attribute by attribute basis he can cause the following 

; \¢ Bee) ! transformations: 

H 14 §258 ; 3 SET COMPLEMENT Action 

: 51 Ocps | i "EE petonans KEEFTE hanged 

3 : ribute unchanged. 

: 19 Bets 1! 1 0 Attribute set toe on” 

; 218 0477 1! 0 1 Attribute set to complement of 

; 219 0478 1! current setting. ; 

; $y Reep 1 ! 1 1 Attribute set to ‘'off'’. 

3 1 480 1! 

3 ¢¢ 0481 1 | 

3 $$7 Rees ! Attributes which can be manipulated in this manner are: 

; $3 0484 1! SMG$M_BL INK or characters blinking. 

; 226 0485 1! SMGSM_BOLD displays characters in higher-than-normal 

3 ger 0486 1! intensity. 

> 228 0487 1! SMGSM_REVERSE displays characters in reverse video -- that is, 

3 $62 0488 1! using the opposite default rendition of the 

; 250 0489 1! virtual display. ; 

g @51 0490 1! SMG$M_UNDERLINE displays characters underlined. 

; ge 0491 1! 

3 @29 0492 1! 

i: 234 0495 1 ! IMPLICIT INPUTS: 

; 209 0494 1! 

; 236 0495 1! NONE 

,. gar 0496 1! 

; ese 0497 1 ! IMPLICIT OUTPUTS: 

; 239 0498 1! 

; 240 0499 1! NONE 

; 24) 0500 1! 

; ses 0501 1 ! COMPLETION STATUS: 

; 26 0502 1! 

3: 266 0503 1! SS$_NORMAL Normal successful completion 

; 245 0504 1! SMGS_INVCOL Invalid column number 

; 246 0505 1! SMG$_INVROW Invalid row number 

; 247 0506 1! SMG$_DIALINNOT Diagonal Line not allowed 

; 248 0507 1! SMG$_WRONUMARG Wrong number of arguments 

; 249 0508 1! 

; 250 0509 1 ! SIDE EFFECTS: 

; $2 0510 1! 

: 26 0511 1! NONE 

ee et Bele 1! 

3; 254 0513 1 !-- 

3 @o? 0514 1 

; € 0515 $ BEGIN 

: gor 0516 

; 258 0517 LOCAL 3 

: 259 0518 WORK_S_ROW, ! Local temporaries 

: 260 0519 WORK_S_COL, , 

: 261 8289 WORK_E_ROW, we 

: ¢ 521 WORK_E COL, BS: 

; B26 r4 TEXT_BOF : REF VECTOR f BYTE). ' ptr to dcb text buffer 

: 264 0525 2 ATTR_BUF : REF VECTOR C,BYTEJ, ! ptr to dcb attr buffer 
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1-004 MGSDRAW_LINE = Drac a line in a virtual displa 14- - 38% 90:89:06 SMGRTL.SRCISMGDISORW.B 2:2 ° (3) 58 
DIR : INITIAL (0), ' direction of Line : 
R tion code to us 


ND_CODE, : e 
DCB : REF BLOCK (C,BYTE); ! addr of display control block 


PAO 
DOONOuW 


68 
LITERAL 
70 * RG = 6 ! arg number of rend set 
KCOMP_ARG = 7, i arg number of rend complement 
K-HORIZ = 1; ! Line is horizontal 


AAN™N 


OOONOUE wr 


SSMG$GET_DCB (.DISPLAY_ID, DCB); 


get addr of virtual display 
! control block 
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; 4 

; 2 5 

: 05 5 

: 0528 

; 0529 

; 0550 

; 0531 

; 05 ¢ 

: 05 

: af 0534 

; ar 0535 

:- ar 0536 TEXT_BUF = .DCB CDCB_A_TEXT_BUF J; 

> ev 0537 ATTR-BUF = .DCB CDCB_A_ATTR_BUF J; 

BS ig 0538 

; 28 0539 + 

; 281 0540 § ! Validate arguments passed. Check for optionals. 
; 5g 0541 le 

; 28 05 ¢ 2 

; Se Be ? 2 SSMGSVALIDATE_ARGCOUNT (5, 7); 

: a8 g2 2 6 SSMGSVALIDATE_ROW_COL (..START_ROW, ..START_COL); 
; 34 Be ; SSMGSVALIDATE_ROW_COL (..END_ROW, ..END_COL); 
: 290 0549 2 SSMG$SE1_REND_CODE (K_SET_ARG, K_COMP_ARG); 

: 291 0550 2 '‘“macro to use caller's args if present 
; eve 0551 2 

3 > 05 4 e ¢ 

> 294 05 2 ! Use local temporary storage for start and end points. We don't know 
; 295 0554 § ! the order in which the points will be passed, but our code assumes : 
; 296 0555 ' Left to right order for horizontal Lines, and up to down order for vertical 
; ow 0556 2! Lines. 

; 298 0557 2 !- 

; 299 0558 2 

: 300 0559 2 IF ..START_ROW EQL ..END_ROW 

:; 301 0560 2 THEN 

; 30 0561 2 DIR = K_HORIZ 

; 30 p26¢ 5 

; 304 056 IF ..START_COL NEQ ..END_COL 

; 305 0564 § HEN 

: 306 0565 RETURN (SMG$_DIALINNOT); 

; 307 0566 . 

: 308 0567 IF .DIR EQL K_HORIZ 

; 309 0568 THEN 

; a 0569 BEGIN 

3 Sti 0570 ; IF ..START_COL LSS ..END_COL 

; 218 0571 THEN 

> 3 B2r¢ 4 BEGIN 

3 14 0575 4 WORK_S_COL = ..START_COL; 

> 315 0574 4 WORK-S"ROW = ..START-ROW; 

3; 316 O27? 4 WORK-E~COL = ..END_COL; 

: 317 576 4 WORKE-ROW = ..END_ROW; 

: 318 beak 4 END 

; 319 578 3 E 

; 320 0579 4 BEGIN 

:. 33 0580 4 WORK_S_COL = ..END_COL; 
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: 4 

3 5 584 
Be BB 
; 8 5 

3 9 0588 
3 0 0589 
s 335] 0590 
; zs 0591 
3 ; 8236 
3 4 059 
; 3 0594 
3 | 6356 0595 
s Sor 0596 
; 338 0597 
; 339 0598 
; 340 0599 
3 4) 0600 
: $e 0601 
; «34 pene 
: 344 060 
; 345 0604 
; 346 0605 
3 47 0606 
: 348 0607 
; 49 0608 
: 350 0609 
; 51 0610 
3 26 0611 
‘ae pers 
3; 6354 061 
; 55 0614 
3 56 0615 
; 57 0616 
; 58 0617 
s 359 0618 
; 60 0619 
; 61 0620 
3 6 0621 
; 062 
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' vertical Line 


4 WORK_S_ROW = ..END_ROW; 
4 WORK-E-COL = ..START_COL; 
4 WORK-E-ROW = ..START-ROW: 
END; 
END 
ELSE 
IF_..START_ROW LSS ..END_ROW 
THEN 
BEGIN 
WORK_S_COL = ..START_COL; 
WORK"S"ROW = ..START-ROW: 
WORK"E-COL = ..END_COL; 
WORKE-ROW = ..END-ROW: 
END 
ELSE 
BEG 
WORK_S_COL = ..END_COL; 
WORK~S-ROW = ..END-ROW: 
WORK-E-COL = ..START_COL; 
WORK“ E “ROW = | lSTART~ROW: 


? 
Reset the Line characteristics vec 
some double high or double wide te 


We may be dealing with a vertical 


' 
i 
i 
i 
i 
t will require re-setting multiple e 


BEGIN 


LINE_CHAR : VECTOR C,BYTE]; 
IF .DIR EQL K_HORIZ 
THEN 


2 
; 
2 
2 
2 
2 
tk 
3 
3 
3 
3 
3 
3 
3 
4 BEGIN 

4 IF .LINE_CHAR C.WORK_S_ROW] 
4 SRESET_LINE (.WORK_S_ROW 
; ELSE 

4 INCR ROW FROM .WORK_S_ROW TO 
5 BEGIN 

5 IF .LINE_CHAR [.ROW] NEQ 
5 THEN 

5 SRESET_LINE (.ROW); 
3 hae " 

ES . 


i " jauert the generic text byte for Li 


ND 
LINE_CHAR = .DCB CDCB_A_LINE_ 


+ in case there was previously 
x 


or horizontal line. A vertical Line 
ntries in the vector. 


CHAR]; 


! horiz line - reset 1 ele of vector 


NEQ 0 
3 
vert Line - reset multi elements 
WORK _E_ROW DO 
0 


ine drawing into the text buffer. 
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'¢ 
! See if this change should be reflected on the screen immediately. 


LINE - 


Line drawing 18-56 p-1984 : $3; 26 AX-11 Blis 
9:6 SMGRTL.SRC SMGDISDRW. * 2:2 


Draw a Line in a virtual displa 12: 23e p= 1384 


(Notice that there are different representations for horizontal, vertical, 
corners, etc.) Set a bit in the attribute byte so the output routines 
twill re-interpret the generic text into the device specific character. 


We move one character at a time since it may be necessary to OR elements 
_ (see description of macro above). 


BEG! 


LOCAL 


POS = 


IF 
THE 


ELSE 


END; 


POS ! Linear index into text buffer 
LENGTH; : cale Length of Line 


SSMGSLINEAR (.WORK_S_ROW, .WORK_S_COL); 


oem EQL K_HORIZ ! horizontal Line 


BEGIN 

LENGTH = .WORK_E_COL = .WORK_S_COL + 1; 
SINSERT_LINE_CHAR (BORD_M_RIGHT); 

POS = .POS +71; 


INCR NUM. CHAR FROM 2 TO (.LENGTH = 1) DO 
SINSERT LINE _CHAR (BORD_M_HORIZ); 

IF LENGTH GTR 
SINSERT_LINE_CHAR (BORD_M_LEFT); 

END 


BEGIN : ver rtical line 
LENGTH = .WORK_E_ROW - .WORK_S_ ROW + 13 


SINSERT LINE_CHAR (BORD_M DOWN); 
.POS +".0CB CDCB_Q_NO_COLS); 


INCR acy. FROM 2 TO (.LENGTH = 1) DO 


SINSERT LINE_CHAR (BORD M, VERT) ; 
POS = .POS +~.DCB COCB_@_NO_COLS); 


LENGTH GTR 1 
SINSERT_LINE_CHAR (BORD_M_UP); 
END; 


If . 
THEN 


a 
j 
i 


pose ee —_——— -_— ee 
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; 4 $ 695 !- 
; 4 69 
; 438 069 RETURN (SMGSSCHECK_FOR_OUTPUT_DCB (.DCB, 
: tio $038 WORK_$_ROW)) 
° . wo K OW PY 
: 441 its tin 
; 44 0701 
> 44 0702 #1 END; ! End of routine SMGS$DRAW_LINE 
TITLE SMG$D 1 SPLAY_DRAW Display Line drawing 
IDENT \1-004\ 
~EXTRN SMGS$S$CHECK FOR _OUTPUT_DCB 
-EXTRN SMG$_INVDIS_ID; shGs TNVARG 
-EXTRN SMGS_INVCOL, SMG$_I 
[EXTRN SMGS$"DIALINNOT, SAGs vWRONUMARG 
-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 .ENTRY RRsat Save R2,R3,R4,R5,R6,R7,R8,- ; 0411 
SE 20 C2 00002 SUBL2 #3 32, ; 
54 D4 00005 CLRL DIR 3; 0515 
50 04 BC DO 00007 MOVL QDISPLAY_ID, RO ; 0534 
046 BC 38 AO 01 00008 CMPL 56(RO), SDISPLAY_ ID : 
06 12 00010 BNEQ 1$ F 
11 44 Ad 91 00012 CMPB 68(RO), #17 : 
08 13 00016 BEQL 2$ ; 
50 00000000G 8F D0 00018 1$: MOVL #SMG$_INVDIS_ID, RO 3 
04 0001F RET : 
58 04 BC DO 00020 2$: MOVL @DISPLAY_ID, DCB : | 
04 AE 10 AB DO 00024 MOVL 16(DCB), TEXT_BUF : 0536 
5A 14 AB DO 00029 MOVL 20(DCB), ATTR BUF ; 0537 
50 6C 05 83 90020 SUBB3 «#5, (APS, DIFF : 0543 
02 50 91 00031 CMPB DIFF, #2 3 
08 18 00034 BLEQU 3$ 3 
50 00000000G 8F D0 00036 MOVL #SMG$_WRONUMARG, RO $ 
04 00030 RET § 
53 08 BC DO OOO3E 3$: MOVL @START_ROW, R3 ; 0545. 
08 15 00042 BLEQ 4 3 
53 02 AB 10 00 ED 00044 CMPZ7V #0, #16, 2(DCB), R3 : 
08 18 OO04A BGE $ 3 
50 00000000G 8F 00 popes 4$: MOVL #SMGS$_INVROW, RO 3 
04 0005 RET 3 
52 Oc BC 9 00054 S$: MOVL @START_COL, R2 : 
08 15 00058 BLEQ 3 
52 06 AB 10 00 €ED Fs CMPZV #0, #16, 6(DCB), R2 : 
08 18 00060 BGEQ 7$ : 
50 00000000G 8F 00 Bones 6$: MOVL #SMGS$_INVCOL, RO : 
04 Bade RET ; 
51 10 BC DO 0006A 7$: MOVL @END_ROW, R1 3 0547 
08 15 Boner BLEQ 3 
51 02 AB 10 00 FD 968 CMPZ7V #0, #16, 2(DCB), R1 ; 
ee 8 00076 BGEQ : 
50 00000000G 8F DO Bp bse 8$: MOVL #SMG$_INVROW, RO : 
04 0007F RET : 


—————_———————- 
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SMGSDISPLAY_DRA Display Line drawin 16-Sep-1984 00:24:5 AX-11 Bliss-32 V4.0-74 Page 11 
7-006 SMCBDR W_LINE = bres o line tn 8 virtual displa aaets 1 90:86:26 SMGRTL.SRCISMGDISDRW.B32;2 9° (3) 
OC AE 05 014 TSTL HAR_BUF : 
OE 1 14 BEOQL 0$ : 
56 0c AE 0 0014 MOVL.  CHAR_BUF, Rs : 
06 AB 30 AB 6E ‘e ae ¢ 0149 MOVCS #0, TSP), 48(DCB), 6(DCB), @START_INDEXCR6] ; 
4C BES 94 0153 0$: CLRB 476(DCB)CWORK_S_ROW] : 
SF 11 001 1$: BRB : 0617 
56 FF A? 9E 00159 22$: MOVAB -1(R7), ROW + 0626 
55 11 0015p BRB 25$ : 
4C BB46 3 O15F 23$ TSTB @76(DCB) CROW] + 0628 
4F 13 00163 BEQL 25$ : 
50 FF AG Hi 00165 MOVAB =1(R6), RO + 0630 
51 06 AB 3C 00169 MOVZWL 6(DCB), R1 : 
50 51 C4 0016D MULL2 1, RO : 
51 04 AB 3C 00170 MOVZ2WL 4(DCB), R1 : 
18 AE FF A140 9E 00174 MOVAB  -1(R1)EROJ, START_INDEX : 
50 10 AB DO OO17A MOVL  16(DCB), TEXT_BUF : 
08 AE 14 AB 7D 00176 MOVG 20(DCB), ATTR-BUF : 
06 AB 20 6E 00 2c¢ 0018 MOVCS #0, (SPS, #327 6(DCB), @START_INDEX- : 
18 BE4O 00189 CTEXT BUF) ; 
6E 18 AE 08 AE C1 o018¢ ADDL3 ATTR_BUF, START_INDEX, (SP) : 
06 3 2—E «= AB 6E 00 2C 0019 MOVCS #0, TSP), 46(0CB), 6(DCB), a0(SP) ; 
00 BE 00199 : 
OC AE DS 0019B TSTL | CHAR_BUF : 
10 13 0019€ BEQL  24$ : 
08 AE 18 AE 0c AE C1 001A0 ADDL3 CHAR_BUF, START_INDEX, 8(SP) : 
06 AB 30 AB 6E . 00 2c OO1A7 MOVCS #0, TSP). 48(DCB), 6(DCB), a8(SP) : 
4C BB46 94 00180 48: LRB  @76(DCB) CROW] : | 
A? 56 58 £3 001B4 25$:  AOBLEQ WORK_E_ROW, ROW, 23$ + 0626. 
56 FF A? QE 001B8 26$:  MOVAB <-1(R7)> R6 : 0651 
50 06 AB 3C 001BC MOVZWL 6(DCB). RO : | 
56 50 (C4 001C0 MULL2 RO, R6 : 
51 146 AE 01 ¢€3 001C3 SUBL3 #1. WORK_S_COL, R1 ; 
50 56 51 C1 001CB ADDL3 = R1, R6 ; | 
52 SA 50 ¢1 001CC ADDL3 POS, ATTR_BUF, R2 > 0658 | 
53 50 04 AE C1 00100 ADDL3 TEXT_BUF, POS, R3 ; 
03 1C AE Es 00105 BLBS 8: PB), 2 : 
008A 31 00109 BRW 6$ ; | 
59 14 AE C2 0010C 278: SUBL2  WORK_S_COL, R9 > 0656. 
51 01 Ad GE O01E0 MOVAB 1(R9J,~LENGTH : 
10 62 06 £1 O01E4 BC , (R2), > 0658 | 
6 01 88 OO1E8 BISB2 #1. (R3) : 
53 62 9A OOiEB MOVZBL (Re), R3 ; 
53 OF CA OO1EE BICL¢ #15, R35 : 
62 53 10 AE 89 OO1F1 BISB3 REND_CODE, R3, (R2) ; 
09 11 001F6 BRB 29$ ; 
63 01 90 OO1F8 288:  MOVB #1, (R3) ; 
62 10. AE 40 ef B9 OO1FB BISB3 #64, REND_CODE, (R2) ; 
0 06 00201 298: INCL OS > 0659 
53 01 00 00203 MOVL #1, NUM_CHAR ; 0661 
2D 11 00 $8 BRB 3 
17 604A 06 £1 00208 30$: BBC #6, (POS)CATTR_BUFI, 31$ > 0663 
52 04 AE 0 00200 MOVL TEXT ; 
604 05 88 00211 BISB2 #5, TPOSSCR2] : 
3 604A 9A 00215 MOVZBL (POs CATTR_BUFJ, R2 ; 
5 OF CA 00219 BICLe #15, R2 ; 


a 
SMGSDISPLAY_DRA ptspt Line drawin 16-Sep-1984 :246:5 AX-11 Bliss-32 V4.0-74 Page 12 
1-004 nebon W_LINE - Sree & ine tn © vtrteni displa 12-80 8=1382 00:36:26 SMGRTL.SRCJSMGDISDRW.B32;2 9 35, 
604A 52 10 AE 89 0021 BISB3 REND_CODE, R2, (POS)CATTR_BUF I : 
OF 11 00¢2 BRB Bt : 
6023 OF OS 88 bo5s8 Rove. gee Bue RS, : 
604A 10 AE 40 i 89 0 , 8133 #6, REND_CODE, (POS) CATTR_BUF J : ei 
CF 53 1 F200 3: AOBLSS CENGTH, NUM_CHAR, 30$ + 0661 
01 31 pf 0 9 CMPL ENGTH, #1 + 0667 
18 604A 06 £1 8 ; BBC #6, (POS)CATTR_BUFI, 35$ + 0669 
51 04 AE 00 0024 MOVL TEXT : 
6041 04 88 00 47 BISB2 #4, TPOSS(R1] : 
32 604A aA 00 4B sey CPGSdEATIRG BUFJ, R2 : 
604A 28 10 AE 89 00 3 BISB REND CODE, R2, (POS) CATTR_BUFIJ : 
00A1 1 bose 34$: BRwW 45$ : 
51 04 AE 00 00258 35$:  MOVL  TEXT_BUF : 
6041 04 90 0025F MOVB = #4 ess cR13 : 
OO8F 31 00263 BRW 44$ : 
58 57 C2 00266 368: SUBL2 WORK_S_ROW, R8 + 0674 
51 01 AB SE 00369 MOVAB 1(R8), LENGTH : | 
10 ef 06 a 0026D BBC 6, (R2), : 0676. 
é 08 88 d0g71 BISB2 ( : 
53 62 9A 00274 MOVZBL (Re), R3 ; 
53 OF CA 00277 BICL¢ #15, ; 
62 53 10 AE 89 0027A BISB3 REND_CODE, R3, (R2) ; 
09 (11 0027 BRB ; 
63 08 90 00281 378: #8, (R3) ; 
62 10 AE 40 8F 89 00284 BISB3 #64, REND_CODE, (R2) ; 
52 06 AB 3C 0028A 38$: MOVZWL 6(DCB), R2 3 0677 
50 52 CO 0028E ADDL2. R2, PO F 
_ oF OT 8534 Bra; kag OM Seok 
17 604A 06 £1 00296 39$: BBC #6, (POS)CATTR_BUFJ, 40$ > 0681 
52 04 AE 00 00298 MOVL TEXT BUF R ; 
6042 OA 88 0029F BISB2 #10,~(POS)CR2) : 
POE RB BER ab Th ira, 2 | 
604A 52 10 AE 8&9 OOGAA Bichs REND_CODE, R2, (POS)CATTR_BUF J : 
OF 11 002B0 BRB 41$ ~ ; 
col} MBS SRR SOR: SFB an : 
604A 10 AE 40 BF 89 OO2BA BISB3 #64, REND CODE, (POS)CATTR_BUF J : 
52 06 AB 3¢ 00 C1 41$:  MOVZWL 6(D¢B), R2 + 0682 
50 52 CO 002CS ADDL2 R2, POS ; | 
CA 53 51 F2 002CB 42$:  AOBLSS LENGTH, ROW, 39$ : 0679 
‘ a har ghey agen ee 
17 604A 06 €1 00201 BBC #6, (FOS)CATIR_BUFI, 43$ + 0687 
51 04 AE bd 0206 MOVL TEX 1 : 
6041 02 88 OO2DA BISB2 #2, TPOSSCR1) ; 
31 604A 9A 6 ae CPOSdEATIR BUFJ, R1 
604A 51 10 AE 89 O2E BISB is CODE, R1, (POS) CATTR_BUF J 
OF 11 OO02EB BRB ; 
51 04 AE DO 002ED 43$:  MOVL TENT BUF : 
6041 02 90 002F1 MOVB Tees s CRT] ; 


; Routine Size: 778 bytes, Routine Base: _SMGSCODE + 0000 


SAGRDISPLAY DRA Rt oplay Nee drawing 16-Sep 
GSDRAW_LINE = Draw a Line in a virtual displa 14-S 
604A 10 AE 40 F 89 OO2FS 44$: 
7 OD 3 FC 45$: 
E D4 A 
5B DD 00350 
000000006 00 03 FB BO abs 
04 0030 


B1SB3 
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#64, REND CODE, (POS)CATTR_BUF J 
WORK _S$_ROO 


=(SP 


DCB 
w. SMGSSCHECK_FOR_OUTPUT_DCB 


re i 


: 0699 
; 0697 


: 0702 
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SMGSDISPLAY_DRA Display Line drawing 16-Sep-1984 90: 68:38 AX-11 Oi legen V4.0-74 Page 1 
1-004 SMGSDRAW_RECTANGLE = Draw a rectangle in a virt 14-Sep-1984 13:09:4 SMGRTL.SRCIJSMGDISDRW.B52;2 (4 
> 445 0703 1 XSBTTL "SMGSDRAW RECTANGLE = Draw a rectangle in a virtual display’ 
; 446 0704 1 GLOBAL ROUTINE SMGSDRAW_RECTANGLE ( 
; 447 8502 1 DISPLAY _ID 
; 448 206 1 TOP_LEFT_ROW, 
> 449 0707 #1 OP_LEFT COL, 
; 450 0708 1 BOTTOM_RIGHT_ROW, 
> 451 0709 1 BOTTOM RIGHT COL, 
; 126 0710 1 RENDITION_SET 
: 45 0711 1 RENDITION~ COMPLEMENT 
; 454 tat 1 d= 
> 455 07135 1 
; 456 0714 1 !4+ 
; 457 0715 1 ! FUNCTIONAL DESCRIPTION: 
; 458 0716 1! 
; 459 0717 1! This routine draws a rectangle in a virtual display. Given 
; 460 0718 1! two points we eopes ite corners of the rectangle, it determines 
: 461 0719 1! the desired width and height. 
; re «| 0720 1! 
; 46 0721 1! Top Left row, COl tem--nnnn-nnnnnnnnnnnnnn- 
> 464 0722 1! H : 
; 465 0723 1! H : 
; 466 0724 1! H H 
; 467 ores 1! H H } 
: 468 O726 1 fa a a a a a a a a a a a a * Bottom right row, col 
; 469 0727 1! 
; 470 0728 1! Device independent codes are placed in the display text and 
> (471 B80 1 attribute buffers. Output decides which Line drawing characters 
; org Bray : to use based on the type of terminal. 
: 474 0732 1! The internal cursor position is not changed. 
3; 475 0733 1! 
: 476 0734 1 ! CALLING SEQUENCE: 
: 477 0735 1! 
: 478 0736 1! ret_status.wic.v = SMGSDRAW_RECTANGLE (DISPLAY_ID.rl.r, 
: 479 0737 1! TOP_LEFT_ROW.rl.r, 
; 480 0738 1! TOP_LEFT COL.rl.r, 
> 481 0739 1! BOTTOM_RIGHT_ROW.rl.r, 
> 482 0740 1! BOTTOM_RIGHT COL.rl.r, 
> 483 0741 1! C,RENDITION_SET.rl.r2 
> 484 0742 1! C,RENDITION_COMPLEMENT.rl.rJ 
: 485 0743 1! 
; 486 0744 1 ! FORMAL PARAMETERS: 
: 487 0745 1! 
; rt} B7es : DISPLAY_ID.rl.r Display id of virtual display 
: 490 0748 1! TOP_LEFT_ROW.rl.r Address of the row number of the top left 
: $33 th 4 ' hand corner of the rectangle. 
: 49 0751 1! TOP_LEFT_COL.rl.r Address of the column number of the top 
: rhe O88 : left hand corner of the rectangle. 
3; 496 0754 1! BOTTOM_RIGHT_ROW.rl.r Address of the row number of the bottom right 
: rea Boee : hand corner of the rectangle. 
3; 499 0789 ee BOTTOM_RIGHT_COL.rl.r Address of the column number of the bottom 
; 300 8585 1 right hand corner of the rectangle. 


Pn GE COM FP FAT tm 
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SMGSDISPLAY_DRA Rteels Line drawing 16-Sep-19 4 9: 4:5 AX-11 Bliss-32 V4.0-74 
1-004 SMGSDRAW_RECTANGLE = Draw a rectangle in a virt 14-Sep-1984 15:09:4 SMGRTL.SRCISMGDISDRW.B52;2 
3 206 0760 1! RENDITION_SET.rl.r Optional. Each 1 bit in this parameter 
; Ww 0761 1! causes the corresponding attribute to be 
; 504 B76 1! set in the erent ey (See below for List 
; 28? the } of settable attributes.) 
: 507 0765 1! RENDITION _COMPLEMENT.rl.r Optional. Each 1 bit attribute in this 
; 508 0766 1! parameter causes the corresponding attribute 
; 509 0767 1! to be complemented in the display. ee 
3 919 0768 1! below for List of complementable attributes.) 
; 33 0769 1! 
: 21g 0770 1! 
s >i 0771 1! If the same bit is specified in both the RENDITION_SET parameter 
> 514 bes @ and in the RENDITION_COMPLEMENT en the appl ication is 
s 319 0775 1! RENDITION_SET followed by RENDITION complement. Using these two 
; 516 0774 1! parameters together the caller can exercise arbitrary and 
Be hie 0775 1! independent control over each attribute on a singte call. On an 
> 518 0776 1! attribute by attribute basis he can cause the following 
3 Dy 0777 1! transformations: 
3; deo 0778 1! ; 
3 6 0779 1! SET COMPLEMENT Action 
s dee 0780 1! ee ee * 
3 des 0781 1! 0 0 Attribute unchanged. 
> 524 o78¢ 1! Attribute set to ‘'on 
; pee 0785 1! 0 1 Attribute set to complement of 
; 20 0784 1! current Best ing. 
3 der 0785 1! 1 1 Attribute set to ‘'off'’. 
3 320 0786 1! 
; 529 0787 1! : : : ; 
; oe 144 1 Attributes which can be manipulated in this manner are: 
2 Sie 0790 1! SMG$M_BLINK displays characters blinking. 
s- S25 0791 1! SMG$M_BOLD displays characters in higher-than-normal 
; 534 1834 : 7 intensity. : ; 
s 32° ores 7 ft SMGS$M_REVERSE eyeptays characters in reverse video -- that is, 
3; 2 0794 1! using t a eopesste default rendition of the 
3 Sor 0795 1! virtual display. ; 
; 538 0796 1! SMGSM_UNDERLINE displays characters underlined. 
3 Soy 0797 1! 
; 540 0798 1! 
3; 541 0799 1 ! IMPLICIT INPUTS: 
; 542 0800 1! 
3; 543 0801 1! NONE 
: 544 0802 1! 
; 545 0805 1 ! IMPLICIT OUTPUTS: 
; 546 0804 1! 
; 547 0805 1! NONE 
; 548 0806 1! 
3; 549 0807 1 ! COMPLETION STATUS: 
; 550 0808 1! 3 
$s 32 0809 1! SS$_NORMAL Normal successful completion 
; 226 0810 1! SMGS_INVCOL Invalid column number 
3; 3 0811 1! SMG$_INVROW Invalid row number 
3 gee pats ' SMG$_WRONUMARG Wrong number of arguments 
; 926 0814 1 ! SIDE EFFECTS: 
s Jor 0815 1! 
; 558 0816 1! NONE 


Length of Line to draw 

ptr to dcb text buffer 

ptr to dcb attr buffer 
rendition code to use 

addr of display control block 


LENGTH, 
TEXT_BUF : REF VECTOR f.ByTE] 
ATTR-BUF _: REF VECTOR C.BYTE) 
REND~ CODE, 

DCB = REF BLOCK C,BYTE); 
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SMGSDISPLAY_DRA lay Line drawin 16-Sep-1984 00:24:5 AX-11 Bliss-32 V4.0-74 
1-004 GBoRAW_RECTANGLE : Draw a rectangle in a virt 10-3801 984 19:65:46 SMGRTL.SRC SmGD 1 SRW 65252 

2 1 : 

lee 

5 

é BEGIN 

5 LOCAL 

5 BLROW, bottom left row 

5 BLCOL, bottom left column 

5 TRROW, top right row 

5 TRCOL, top right column 

é POS Linear index into buffers 

5 

5 

5 

5 

5 


SN NSIS NIN NSO A AAO AAAON 


AUEBWN SO OONAU EWN OO ODNAUSWN (ODO DNAUES WOO” 


BRROW = .BOTTOM_RIGHT_ROW, 
BRCOL = .BOTTOM_RIGHT_COL, 
TLROW = .TOP_LEFT_ROW, 
TLCOL = .TOP_LEFT_COL; 
LITERAL 
_SET_ARG = 6 ! arg number of rend set 
K-COMP_ARG = 7; ! arg number of rend complement 


SSMGSGET_DCB (.DISPLAY_ID, DCB); 


get addr of virtual display 
' control block 


Wabvabvabab abvab abval ab ab ab eal sab vabvalvaleal al eal ala] 
OO 00 00M OOM 00000000000 
PRIPPPINGPOPPONNONININININIPSNININININININININININININININIPINININININIPYPINI NIPPON POPN PPMP 


BeBe Oe Oe Be Be Se Oe Be SH Se Se Se Be Ge FH Se Be Se Se Se Ge Se Se Ge Ge Ge Se FH SH Se Se FHSS Ss Be Oe Se SF SH Ss Oe Se Se Se Se Se Se Se Se SH SH Ss SH Ss Se we 


4 
4 
4 
4 
4 
4 
4 TEXT_BUF = .DCB CDCB_A_TEXT_BUF); 
4 ATTR-BUF = .DCB CDCB~A-ATTR—BUF J; 
5 + 
5 Validate arguments passed. Check for optionals. 
238 SSMGSVALIDATE_ARGCOUNT (5, 7); 
$96 8 SSMGSVALIDATE_ROW_COL (.TLROW, .TLCOL); 
on 8 SSMGSVALIDATE_ROW_COL (.BRROW, .BRCOL); 
60 60 SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); ; 
60 61 !"macro to use caller's args if present 
604 0 ; 
605 086 + ; 
606 0864 ! The caller passed us two of four points needed to construct a rectangle. 
607 0865 ! Compute the other two and make sure they are within the display. 
608 0866 le 
609 0867 
610 0868 BLROW = .BRROW; 
611 0869 BLCOL = .TLCOL; 
612 0870 TRROW = .TLROW; 
613 0871 TRCOL = .BRCOL; 
614 bars 
615 087 SSMGSVALIDATE_ROW_COL (.BLROW, .BLCOL); 
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616 pore 
617 0875 
618 pas 
619 087 

620 Bae8 
621 087 

6 ¢ 0880 
6 0881 
Ose Bees 
625 088 

626 0884 
627 0885 
628 0886 
629 0887 
630 0885 
631 0889 
632 0890 
633 0891 
634 94 
635 089 

636 0894 
637 0895 
638 0896 
639 0897 
640 089 

641 0899 
642 0900 
643 0901 
644 0902 
645 0903 
646 0904 
647 0905 
648 0906 
649 090 

650 0908 
651 0909 
$26 0910 
65 0911 
654 bar§ 
655 091 

656 0914 
657 0915 
658 0916 
659 0917 
660 0918 
661 0919 
662 ba59 
663 0921 
664 5358 
665 092 

666 base 
667 0925 
668 09 $ 
669 4 

670 928 
671 0929 
672 0930 
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Line drawing -Sep-1984 0: $6: :5 
SMG be WLRECTANGLE = Draw a rectangle in a virt 12: b-Se0-19 4 9: 


+ 


SSMGSVALIDATE_ROW_COL (.TRROW, .TRCOL); 


14 
} We need to draw 4 Lines, 2 horizontal and 2 vertical. 
Draw the top. 


ai" 
LINE CHAR = .DCB CDCB_A_LINE_CHAR]; 
LINE_CHAR : VECTOR C,BYTE); 

14 


i Reset the Line characteristics vector if there was previously 
a some double high or double wide text. 


= C.TLROW] NEQ 0 
SRESET_LINE (.TLROW); 
+ 
' Move horizontal characters to text buffer. Horizontal chars consist 
! of a left & right segment - the left end of the Line needs only a Co 
: segment, the right end of the Line needs a left segment, and alte 
' positions in between need both. Corners will automatically form ne 
a correct characters by ORing the up/down and right/Lleft elements. 


POS = SSMGSLINEAR - TLROW, » ECOL): 
LENGTH = .TRCOL - -TLCOL + 1; 
SINSERT_LINE_CHAR (BORD_M_RIGHT); 
POS = .POS +71; 


INCR NUM_CHAR FROM 2 TO (.LENGTH = 1) DO 
SINSERT_LINE_CHAR (BORD_M_HORIZ); 
POS = .POS +71; 

END; 

SINSERT_LINE_CHAR (BORD_M_LEFT); 


Draw the bottom. 


LINE_CHAR [C.BLROW] NEQ 0 
SRESET_LINE (.BLROW); 


POS = SSMGSL INEAR (, BLROW, -BLCOL); 
LENGTH = .BRCOL = .BLCOL + 1; 


SINSERT_LINE_CHAR (BORD_M_RIGHT); ! left end of Line 


iF . 
THEN 
' reset if prev. dbl hi/wide 


AX=-11 Bliss-32 V 
4 SMGRTL.SRC SMGD I$ 
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DAA AIST ES BS EB EEA 
WONAMNE WN OODODNAUE WN" OOONOU LS Wh 
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Line drawin 


POS = .POS + 1; 

Sy Mat tate FROM 2 TO (.LENGTH = 1) DO ! middle of Line 
SINSERT_LINE_CHAR (BORD_M_HORIZ); 

—_ POS = .POS +71; 


SINSERT_LINE_CHAR (BORD_M_LEFT); |! right end of Line 


'¢ 
Draw the right. 


14 
i A vertical Line requires resetting multi elements in 
& the Line characteristics vector. 
og ag FROM .TRROW TO .BRROW DO 
IF .LINE_CHAR C.ROW] NEQ 0 


SRESET_LINE (.ROW); 
END; 


POS = SSMGSLINEAR (.TRROW, .TRCOL); 
LENGTH = .BRROW - .TRROW + 1; 


SINSERT LINE_CHAR (BORD_M DOWN); 
.POS +7.DCB CDCB_@_NO_COLS); 


INCR ROW FROM 2 TO (.LENGTH - 1) DO 
SINSERT LINE_CHAR (BORD_M_VERT); 
.POS +".0CB CDCB_@_NO_COLS); 
END:” 
SINSERT_LINE_CHAR (BORD_M_UP); 


‘4 
Draw the left. 


ey OW FROM .TLROW TO .BLROW DO 
IF .LINE_CHAR C.ROW] NEQ 0 
SRESET_LINE (.ROW); 
END; 


POS = SSMGSLINEAR (.TLROW, .TLCOL); 
LENGTH = .BLROW - .TLROW + 1; 


SINSERT LINE_CHAR (BORD_M DOWN); 
.POS +7.DCB CDCB_Q_NO_COLS); 
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SMGSDISPLAY_DRA Display Line drawin 1bes ep-1984 AX-11 Bliss-32 V4.0 Pp | SMGS 
1-004 SMG DR W_RECTANGLE : Draw a rectangle in a virt 14- ety 7 99:89 SMGRTL..SRCISMGDISORW. ei OP :2 te a) | 1-06 
: y 9 0388 ; INCR ROW FROM 2 TO (.LENGTH = 1) DO ; 
: 7 990 4 SinseRt LINE_CHAR (BORD_M_VERT); e 4 
ee 0991 4 .POS +~.DCB CDCB_@_NO_COLS); ge) 
; 734 8336 END; 74 
; 5 2 §99% SINSERT_LINE_CHAR (BORD_M_UP} 
: 737 0995 eS athe ; 1 
: 738 0996 END; ae | 
> 739 0997 Sy | 
: 740 0998 4 
: 761 0999 1+ | 
; ee 1309 See if this change should be reflected on the screen immediately. : 
: 764 100@ 3; | 
>: 745 100 RETURN (SMG$SCHECK_FOR_OUTPUT_DCB (.DCB, 
; 746 1004 3 ' no function code for this : | 
: 747 1005 2 .TLROW)); e) 
; 748 1006 2 3 
; 749 1007 2 2.) 
; 750 1008 1 END; ! End of routine SMGSDRAW_RECTANGLE : | 
OFFC 00000 .ENTRY SMGSDRAW RECTANGLE, Save R2,R3,24,R5,R6,R7,-; 0704 : 
SE CO AE 9E 00002 MOVAB =64(SP), : ; 
50 04 BC DO 00006 MOVL QDISPLAY_ID, RO > 0845 
04 BC 38 AO D1 OOOOA CMPL 56(RO), SDISPLAY_ID : 
06 12 O000F BNEQ 1$ : 
1 44 AO 91 00011 CMPB 68(RO), #17 : 
08 13 00015 BEQL 2$ ; 
50 000000006 8F D0 00017 1$: MOVL #SMG$_INVDIS_ID, RO ; 
04 OO001E RET : | 
OC AE 04 BC DO OOOIF 28: MOVL @DISPLAY _ ID, DCB : 
50 OC AE 10 1 00024 ADDL3 #16, DCB; RO + 0847) 
3C oA 60 D0 00029 MOVL (ROS, 60(SP) : 
50 OC «AE 14 C1 000¢0 ADDL3 #20, DCB, RO : 0848 
38 =A 60 D0 00032 MOVL (ROS, S56(SP) ; 
04 AE 38 AE 7D 00036 MOVO 56(SP), ATTR_BUF ; 
50 6C 05 83 00038 SUBB3 #5, (AP), DIFF > 0854 
02 50 91 00055 CMPB DIFF. #2° : 
08 1B 00042 BLEQU 3$ : 
50 000000006 8F D0 00044 OVL #SMG$_WRONUMARG, RO : 
04 00048 RET : 
“a «@ 08 BC DO 0004C 38: MOVL @TOP_LEFT_ROW, 36(SP) > 0856. 
0D 15 00051 BLEQ 4$ : 
50 OC AE 02 C1 00053 ADDL3 "2, DCB, RO F 
24 ~=«OAE 60 10 00 €D 00058 CMP2v #0, #16, (RO), 36(SP) ; 
08 18 0005E BGEQ 5$ : 
50 000000006 8F 00 00060 4$: MOVL #SMGS$_INVROW, RO ; 
04 00067 RET 3 
59 OC BC dO 00068 5$: MOVL aTOP_LEFT_COL, R9 ; 
OC 15 0006C BLEQ 6 ; 
50 OC AE 06 Ci 0006E ADDL3 #6, DCB, RO : 
| 
| 
ob wre Pea Ne Ta ELE Ae PRR eo eS 
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SMGSDISPLAY_DRA Displ line drawin 16-Sep-1984 00:24:5 AX-11 Bliss-32 V4.0-7 P 

1-004 SMG oR W_RECTANGLE t ores 6 rectangle in a virt a et 09:59:28 SMGRTL.SRCJSMGDISDRW. 4 2:2 Sy (35 
6640 18 AE 40 8F 89 00235 BISB3 #64, REND CODE, (POS)CRO] ; 

6 Be C 25$: INCL 3; 0909 

51 1D E MOVL § #1, NUM_CHAR + 0911 

5 06 AF DO bO5e$ 268: Bau arte gu : 0913 
| 1F 0eis 06 £1 00 ‘3 BBC tPosscne., 27$ : 
5 08 A b0 00 46 OVL tei BUF, R : 
6649 05 88 0025 BISB2 TPOSSEROI : 
5 04 Ag bo 99 54 MOVL ArtR R BUF : 
50 6643 9A 00258 MOVZBL (P SyCR3I, Reo F 
50 OF CA 0025C¢ BICL2 : 
54 04 AE DO 005 MOVL ATTR.G : 
6644 50 18 AE 89 00263 BISB3  REND~ eUDE, RRO, (POS)CR4] : 
13 11 00269 BRB 28$ ~ : 
50 08 AE DO 0026B 27$: MOVL TEXT _BUF : 
6640 05 90 0026F MOVE so#5 tposs tho] : 
50 04 AE DO 00273 MOVL. ATIR : 
6640 18 AE 40 8F 89 00277 BISB3 hy “REND_CODE, (POS)CROJ ; 

56 D6 O027E 288: INCL P + 0914 

BF 51 59 F2 00280 29$:  AOBLSS LENGTH, NuM CHAR, 26$ > 0911 

51 04 AE DO 00284 MOVL ATTR_BUF + 0917 
1F 6641 06 E1 00288 BBC #6, TPOSSCRII, 30$ ; 
50 08 AE DO 0028D MOVL EK : 
6640 04 88 00291 BISB2 TPO55CRO3 ; 
52 04 AE DO 00295 MOVL attr BUF ; 
50 6642 9A 00299 MOVZBL (posstRed. Reo ; 
50 OF CA 0029D BICL2 : 
53 04 AE DO 002A0 MOVL atte _BUF, R3 : 
6643 50 18 AE 89 0024 BISB3 REND-CODE, RO, (POS)CR3) : 
13 11 OO2AA BRB 31$ ~ : 
50 08 AE DO OO2AC 30$: MOVL TEXT_BUF : 
6640 04 90 00280 MOVB = #4 poss choI ; 
50 04 AE DO 00284 MOVL_ ATTR_BUF, RO ; 
6640 18 AE 40 8F 89 00288 BISB3 #64, ~REND_CODE, (POS)CROJ : 

50 OC AE 0000004C 8F Ci OO2BF 31$: ADDL3 #76. + 0923 
00 8048 95 002c8 TSTB  a@0(RO)CBLROW) : 
SF 13 dogc¢ BEQL 33$ ; 

50 FF AB YE OO2CE MOVAB =1(R8), RO : 0925 | 
50 14 AE C4 00202 MULL2  20(SP), RO ; 
52 OC AE 04 C1 00206 ADDL3 #4, DCB, R2 : 
51 62 3C 00208 MOVZ2WL (RO), RI : 
1c AE FF A140 9E€ O02DE MOVAB -1(R1)CROJ, START_INDEX : 
50 3C = AE. s«DO -O02E4 MOVL  60(SP), TEXT_BUF ; 
57 38 =6AE DO OOgES MOVL.  56(SP), ATTR7BUF : 
51 Oc AE 18 C1 OeeC ADDL3 #24, DCB, : 
10 AE 61 DO 002F1 MOVL (R1), CHAR BUF : 
16 AE 20 6E 00 2¢ O02F> MOVCS #0, (SP), #32, 204SP), @START_INDEX- : 
1C¢ BE4O 002FB CTEXT BU : 
16 AE 34 AE 6£ 00 2c 00 FE moves #0, (SP), 52(SP), 20(SP), @START_INDEX- F 
1C BE4?7 0030 CATTR BUF] ; 
10 AE DS 00 08 TSTL CHAR_G : 
13 13 00308 BEQL  32$ F 
57 10 AE dO 0030D MOVL_ CHAR_BUF, R? ; 
6E Oc AE 30 C1 00 11 ADDL3 #48,7DCB. (SP) ; 
16 AE 00 BE 6E - my 2c 00 16 MOVCS #0, (SP), @0(SP), 20(SP), @START_INDEXCR7] ; 
50 OC AE 0000004C 8F C1 00320 32$ ADDL3 #76, DCB, RO ; 


— 
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SMGSDISPLAY_DRA displ Line drawin 1bese -1984 00:24:5 AX-11 Bliss-32 V4.0-7 Pp 3 SMC 
| 7-00 MEBDRAW RECTANGLE © Draw @ rectangle in a virt (aekecclone $oiaeize 4 VaMcdt Ck isecs2 v4.0-76 2:2 sal § 1-( 

00 B048 94 00329 CLRB  a0(RO)CBLROW : : 

50 FF AB 9E 0030D 338 MOVA PH Sh RO + 0927 3 

50 14 AE C4 00331 MULL2  20(SP). R : ; 

51 20 Ar 1 €3 00335 SUBL3 #1, BL COL R1 : : 

56 5 1 Ci 0033A ADDL3 R1. RO, POS ; : 

50 2c ar 20 AE c3 033¢ SUBL3 @BLCOL, 44(SP), RO + 0928 ; 

5 01 AO E 00344 MOVAB 1(RO). LENGTH : ; 

51 04 AE DO 00348 MOVL ATTR_BUF, R1 + 0930 : 

1F 6641 06 E1 0034c BBC #6, TPOSSCRII], 34$ : | ; 

50 08 AE DO 00351 MOVL. TEXT_BUF, RO : ; 

6640 07 88 00355 BISB2 #1, TPOSSCROI ; : 

32 06 AE dO 00399 OVL.  ATIR BUF R : ; 

0 6642 9A 0035D MOVZBL (POSTCR2I, RO ; : 

50 OF CA 00361 ICL2. #15, R : : 

53 04 AE DO 00364 OVL ATTR_BUF, R3 : ; 

6643 50 18 AE 89 00368 BISB3 REND-CODE, RO, (POS)CR3] : : 

13 11 0036E RB 35$ ~ : : 

50 08 AE DO 00370 34$:  MOVL TeX T_BUF F F 

6640 01 90 00374 MOVB TP 035¢R03 : : 

50 04 AE DO 00378 MOVL aT TfR : ; 

6640 18 AE 40 8F 89 0037C¢ BISB3 #64, “REND. CODE, (POS)CROJ : | : 

56 D6 00383 35$: INCL P > 0931 : 

51 01 DO 00385 MOVL #1, NUM_CHAR + 0933 ; 

3D 11 00388 BRB 39$ : | ; 

52 04 AE DO 0038A 36%:  MOVL ATTR BUF : 0935. : 

1F 6642 06 £1 00385 BBC 7pos5cR57, 37$ : ; 

50 08 AE DO 0039 MOVL TEXT BUF, R : ; 

6640 05 88 00397 BISB2 «#5 TPOSS ERO : ; 

53 04 AE DO 00398 MOVL ATTR_BUF : : 

50 6643 9A 0039F MOVZBL (POSTERSS, RO : : 

50 OF CA 003A3 BICL2 R : : 

54 04 AE DO 003A6 MOVL ATiR _BUF : : 

A644 50 18 AE 89 OO3AA BISB3 REND-CODE, RRO. (POS) CR4] : : 

13 11 00380 BRB 38$ ~ : : 

50 08 AE DO 00382 37$: § MOVL TEXT BUF : ; 

6640 05 90 00386 MOVB = so#'5 tPoss cko3 : | ; 

50 04 AE DO 003BA MOVL. ATTR_BUF, RO : | ; 

6640 18 AE 40 8F 89 0038E BISB3 nb, “REND_CODE, (POS)CROJ : | ; 

56 D6 003C5 38S: INCL _—— POS > 0936 | : 

BF 51 59 F2 003C7 39$: | AOBLSS LENGTH, NUM_CHAR, 36$ : 0933 | ; 

51 04 AE DO 003CB MOVL ATTR_BU : 0939 | F 

1F 6641 06 £1 OO3CF BBC #6, TPOSSCRIJ, 40$ : | : 

50 08 AE DO 00304 MOVL -TEXT_BUF, RO : : 

6640 04 88 00308 BISB2 #4, TPOSSCRO) : F 

52 04 AE 00 0030C MOVL fR BUF, R2 ; : 

50 6642 9A 003E0 MOVZBL (POSTCR23, RO : : 

50 OF CA 00364 BICL2. #1 : : 

53 04 AE DO O03E? MOVL ATTRB : : 

6643 50 18 AE 89 OO3EB BISB3  REND- Pope. Ro. (POS) LR3] ; ; 

13 11 003F1 | BRB 41$ : : 

50 08 AE DO 003F3 40$:  MOVL TEXT BUF : ; 

6640 04 90 003F7 MOVB = #4 pbs 5 cRo3 : ; 

50 04 AE dO 0038 MOVL_ ATTR_BUF, RO ; F 

6640 18 AE 40 8F 89 00 FF BISB3 #64 TREND CODE, (POS) CROJ : | : 

5 FF AB E 00406 41$: MOVAB -1(R11 : 0950. F 

78 «#11 O040A BRB : ; 

50 OC AE 0000004c BF C1 0040C 428 ADDL3 #76, DCB. RO > 0952 : 


— 


H Mt 

SMGSDISPLAY_DRA Disel Line drawin 16-Sep 4:5 AX-11 Bliss-32 V4.0-74 4 SMG 
1-004 nets RAW _RECTANGLE : Draw a rectangle in a virt 14-Sep 71982 9: 89; 26 SMGRTL.SRC shepisbRw 6 2:2 st B 1-0 

00 8047 95 0415 TSTB a0(RO)CROW] ; : 

69 1 419 BEQL 44$ : : 

50 FF A? 9E 00412 MOVAB =1(R7), RO + 0954 : 

50 146 AE C4 0041F MULL2  20(SP), RO : ; 

52 OC AE 04 cI 4 ; ADDL3 #4, DCB, R2 : ; 

51 62 C 004 MOV2WL (R2), Ri : ; 

2c AE FF AIG 3 04 B MOVAB  <-1(R1)CROJ, START_INDEX : : 

5 3 AE DO 00431 MOVL G0(SP), TEXT_BUF : ; 

1¢ AE 8 AE DO 00435 MOVL 6(SP); ATTR-BUF : ; 

51 OC AE 18 C1 0043A ADDL3 #24, DCB, R1 : ; 

20 «AE 61 00 0043F MOVL (R15, CHAR ayF : : 

14 AE 20 6E 00 2¢ 00445 MOVCS #0, (SP), B32, 20(SP), @START_INDEX- : ; 

2C BE4O 0449 CTExT BUF) : ; 

10 AE 2c Ss AE a. = Bees ADDL3 ATTR_BuF, SA RT_INDEX, 16(SP) : 3 

16 AE 34 AE 6E 06 2C 0045 mMovCS #0, TSP). 52(SPT, 20(5P), a16(SP) : ; 

10 BE 0045A : 3 

20 AE 05 0045¢ TSTL | CHAR_BUF : ; 

16 13 0045F BEQL 43$ ~ : : 

1c AE 2c OA 20 AE C1 00461 ADDL3 CHAR BUF. START_INDEX, 28(SP) : : 

10 AE OC AE 30 C1 00468 ADDL3 #48, SP : : 

16 AE 10 BE 6E * 00 2c O046E MOVCS #0, (SP) ai6(SP), 20(SP), a28(SP) : ; 

50 OC AE 0000004C 8F C1 00477 43$: ADDL3 #76, DCB, RO : ) ; 

00 B047 94 00480 CLRB a0(RO) CROW) : ; 

83 57 28 «AE F3 00484 448: AOBLEQ 4O(SP), ROW, 42$ : 0950. : 

57 FF AB 9E 00489 MOVAB =1(R115, R7 > 0957. : 

57 14 AE C4 0048D MULL2  20(SP), R7 : ; 

56 FF AAG? i 0049 MOVAB -1(TRCOL)CR7], POS : ; 

SA 28 OA 5B OC 00496 SUBL3 TRROW, 40(SP). R10 + 0958 ; 

59 01 AA 9E 00498 MOVAB 1(R105, LENGTH : ; 

51 04 AE DO 0049F MOVL  ATTR_BUF, R1 : 9960 ; 

1F 6641 06 €E1 004A3 BBC #6, TPOSSCRI], 45$ : ; 

50 08 AE DO 004A8 OVL ‘ TEXT_BUF, RO : ; 

6640 08 88 O04AC BISB2 #8, TPOSSCROI : ; 

52 04 AE DO 00480 MOVL ATTR_BUF : ; 

50 6642 9A 004B4 MOVZBL (PosstRed, RO : ; 

50 OF CA 00488 BICL2. #15, : ; 

53 04 AE 00 00488 MOVL ATTR.B : ; 

6643 50 18 AE 89 004BF BISB3 REND~ AE. Ro. (POS) CR3] : F 

13 11 004C5 BRB 46$ ~ : ; 

50 08 AE DO 004C7 45$:  MOVL TEXT BUF : ; 

6640 08 90 004CB MOVB TPOS5 R03 ; ; 

50 04 AE 00 OO4CF MOVL 4 R_BUF, : | ; 

6640 18 AE 40 8F 89 00405 BISB At “REND CODE. (POS) CROJ : : 

56 14 AE CO OO4DA 468: ADDL 2 (§P), POS : 0961 : 

51 01 DO 004DE MOV > 0963 | : 

3F 611 004E1 BRB 5) : | ; 

52 04 AE 00 OO4ES 47$: MOVL  ATTR_BUF R2 > 0965 | ; 

1F 664 06 £1 004E7 BBC #6, TPOSSER J, 48$ : : 

50 08 AE DO O04EC MOVL EXT_BUF, RO : ; 

6640 OA 88 004F0 BISB2 #10 -tp0§) [ROI : ; 

53 04 AE DO 004F4 MOVL ATTR_BUF, R ; ; 

50 6643 9A 004F8 MOVZBL (POSS R34, RO ; : 

50 OF CA OO4FC BICL ; : 

54 04 AE bo O4FF MOVL ATTA : ; 

6644 50 18 AE 89 00503 BISB3 REND- POE. Reo. (POS)CR4] ; ; 

1 11 00509 BRB : 3 


7 ee eee —— . . = 


SMGSDISPLAY_DRA Display Line drawi 
1-004 - BoRkw tes 
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1b-Sep-198 
a rectangle in a virt 14-Sep-19 
08 AE 00 00508 48$: 
oc HPS Bhat 
40 BF 8 17 
14 AE C pais 49$: 
59 Fe 00522 50$: 
04 AE 00 00526 
06 €1 B82 A 
08 AE DO 0052F 
02 88 00533 
04 AS DO 00537 
6642 9A 00538 
OF CA OOS5F 
04 AE DO 00542 
18 AE 89 00546 
13° 11 0054C¢ 
08 AE odO0 ied: 51$: 
02 90 0055 
04 AE 00 00556 
40 8F 89 0055A 
01 C3 00561 52$: 
67 11 00566 
0000004C 8F C1 00568 53$: 
00 BO4A 95 00571 
58 13 00575 
FF AA YE 00577 
14 AE C4 00578 
04 ¢! 0057F 
62 3C 00584 
FF A140 9E 00587 
3C 6 AE-sC=D0 ~0058D 
38 AE DO 00591 
18 C1 00595 
61 DO 0059A 
00 2C 0059D 
2C BE4O 005A3 
00 2¢ 005A6 
2C BE47 OOSAD 
5B D5 00580 
OE 13 005B2 
3u C1 00584 
00 2C 005B9 
C BE4B 005BF 
0000004C  _‘8F ¢) Beece 548: 
00 BO4A 94 005CB 
58 F3 OOSCF 55$: 
30 AE dO 00503 
4 A C2 ppabe 
1 <A& YE 0050B 
04 AE DO OOSDF 
06 €1 005E3 
08 AE 00 005E8 
08 88 bers 
04 ag DO O05FO 
6642 9A OOSF4S 
OF CA QOOS5F8 
04 AE ODO 005FB 


$76 AX-11 Bliss-32 V4.0-74 


SMGRTIL.SRCJSMGDISDRW.B52;2 


TEXT_BUF, RO 
#10,~ (POS) [ROI 


ATTR_BUF, R 
464 REND_CODE, (POS)CROI 
20(§P), P 

LENGTH, ROW, 47$ 

ATTR_BUF, R 

#6, TPOSSCRI], 51$ 
TEXT_BUF, R 

#2, TPOSSCROI 


ATTR_BU 
(POSTCR2I, RO 
#15, R 


ATTR_BUF, R3 
R ND_CODE, RO, (POS)CR3] 


R_BUF, R 
#64,~REND_CODE, (POS)CROJ 
ae 36(SPT, ROW 


S 


CWVUMVOS: + mw: 
7*~-Cwrir@D 


XT_BUF, R 
#8, TPOSSCROI 
ATR But R2 

(POSTER21, RO 


ATTR_BUF, R3 
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SASSO SPLAT _DRA Dis +44 4 ace drawing 1 
-004 SMG DRA WLRECTANGLE = Draw a rectangle in a virt 1 
6643 50 18 «OA #9 SFF 
1 1 o8e 
8 08 AE OD 607 568: MOVL 
664 08 9 one 
50 04 AE B 60F 
6640 18 AE 40 8F 89 00613 
56 14 AE CO QOO61A 57S: ADDL 
51 1 DO OO61E 
F 11 00621 
2§ 04 AE DO 00623 58$: MOVL 
1F 664 06 £1 00627 
50 08 AE +4 896 f 
6640 OA 88 006 
53 04 AE 00 00634 
50 6645 9A 00638 
50 OF CA 0063C 
54 04 AE DO 0063F 
6644 50 18 AE 89 00643 
13° 11 00649 
50 08 AE DO 00648 598 MOVL 
6640 OA 90 0064F 
50 04 AE DO 00653 
6640 18 AE 40 8F 89 00657 
56 14 AE CO Bees 60$: 
BD 51 59 F2 00662 61$: 
51 04 AE DO 00666 
1F 6641 06 £1 0066A 
50 08 AE 00 0066F 
6640 02 88 00673 
52 04 AE DO 00677 
50 6642 9A 0067B 
50 OF CA 0067F 
53 04 AE DO 00682 
6643 50 18 AE 89 00686 
13. 11 0068C 
50 08 AE DO O068E 628: MOVL 
6640 02 90 00692 
50 04 AE DO 00696 
6640 18 AE 40 8F 89 O069A 
24 AE DD O06A1 63S: PUSHL 
7E D4 006A4 CL 
14 AE DD 006A6 
000000006 00 03 FB 006A9 LALLS 
04 00680 RE 


; Routine Size: 1713 bytes, Routine Base: _SMGSCODE + 030A 


s 31 1009 1 !<BLF/PAGE> 


9 
b-Se0-1984 00:24:5 


AX=11 Bliss-32 V4.0 


BEND. CODE, RO, (POS)CR3] 


T F 
i, int possta 


F 
i SRENS CODE. (POS) CROJ 


4 

ATTR_BU 

#6, ia tBOsSCg3. 59$ 
BUF, R 

rio ~(POS§) CROJ 

TR_BUF, R3 

(Posy R34, RO 

#15, R 

ATTR_BUF, R4 

REND-CODE, RO, (POS)CR4] 

60$ ~ 

TEXT_BUF, RO 

#10 ~ (P95) £R0I 


ATTR_BU 

ry “REND CODE. (POS) CROJ 
20(§P), 

LENGTH, ROW, 58$ 


R_BUF, R 
#6, TPOSSCRI], 62$ 
BUF, RO 


>2- 
oem 


2 
ree Ro RO 


ATTR.B 
REND BUDE. <" (POS) CR3] 
63$ 


TEXT_BUF 
We tPos5 R03 


_BU 
#64 “REND _CODE, (POS) CROJ 
36($P) 
=(SP) 


DCB 
#3, SMGS$SCHECK_FOR_OUTPUT_DCB 


SMGRTL.SRC smb! SoRU. : 2:2 


Pete Se Ge Se Se Se Se Be Se Be Be Be Se Be Be Se Be Se Se Be Se Se Se Be Be Be Se Se Se Be Be Be Se Fe Be Se Se Se Fe Se Se Se Se 


Page 26 
. (4) 


0986 
0988 


0990 


‘SiG 


9 
SAGSDISPLAT DRA Display Line drawing 16°S se0- 1384 00:44 AX-11 Bliss-32 V at Page 37 
1-004 SMG ba WLRECTANGLE = Draw a rectangle in a virt 14-Sep-1984 SMGRTL.SRC smepl$ W.B52;2 ( 
753 1010 1 END ! End of module na 
754 1011 
755 1012 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_SMGSCODE 2491 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eoccecee Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 6 0 581 00:00.9 
“$2553DUA28: CSMGRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
-$255$DUA28: CSMGRTIL.OBJJSMGLIB.L32;1 469 26 5 38 00:00.4 
COMMAND QUALIFIERS 
OLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS#L 158: SAGDISDRU/0B)=08$ : SHED! SDAY MSRC$: SMGDI SDRW/UPDATE=(ENH$: SMGDISDRW 
Size: 2491 code + 0 data bytes 
Run Time: 00:47.0 


Elapsed Time: 
Lines/CPU Min: 


Lexemes/CPU-Min: 18845 


Memor 


Used: 


474 pages 


Compication Complete 


NT CORPORATION 
D PROPRIETARY _ 


AH-BT13A-SE 
VAX/VMS_V4.0_ 


1356 


